home *** CD-ROM | disk | FTP | other *** search
/ Aminet 30 / Aminet 30 (1999)(Schatztruhe)[!][Apr 1999].iso / Aminet / mus / edit / OctamedSS1.03c.lha / Soundstudio / Rexx / omed.lha / rexx / Expand.omed < prev    next >
Text File  |  1996-06-09  |  464b  |  17 lines
  1. /* Expand Track */
  2. 'ed_getnumlines var numlines'
  3. 'ed_getcurrline var currline'
  4. if currline=numlines-1 then do; ed_goto l 0; exit; end
  5. keepline=currline
  6. 'op_update off'
  7. do forever
  8.     'ed_advanceline down' 
  9.     currline=currline+1
  10.     if currline=numlines-1 then do; ed_killnotes; leave; end
  11.     'op_multicmd "ed_insertemptynote" "ed_advanceline down"'
  12.     currline=currline+1
  13.     if currline=numlines-1 then leave
  14. end
  15. 'ed_goto line' keepline
  16. 'op_update on'
  17. wi_showstring "Expanded."